Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/0828.ZIP/DEXPERT.ZIP/SCREENS.FMT

Text File | 1987-02-06 | 907b | 40 lines

@  0,  0  SAY "1"
@  0,  2  GET  aa->LINE1
@  1,  0  SAY "2"
@  1,  2  GET  aa->LINE2
@  2,  0  SAY "3"
@  2,  2  GET  aa->LINE3
@  3,  0  SAY "4"
@  3,  2  GET  aa->LINE4
@  4,  0  SAY "5"
@  4,  2  GET  aa->LINE5
@  5,  0  SAY "6"
@  5,  2  GET  aa->LINE6
@  6,  0  SAY "7"
@  6,  2  GET  aa->LINE7
@  7,  0  SAY "8"
@  7,  2  GET  aa->LINE8
@  8,  0  SAY "9"
@  8,  2  GET  aa->LINE9
@  9,  0  SAY "10"
@  9,  2  GET  aa->LINE10
@ 10,  0  SAY "11"
@ 10,  2  GET  aa->LINE11
@ 11,  0  SAY "12"
@ 11,  2  GET  aa->LINE12
@ 12,  0  SAY "13"
@ 12,  2  GET  aa->LINE13
@ 13,  0  SAY "14"
@ 13,  2  GET  aa->LINE14
@ 14,  0  SAY "15"
@ 14,  2  GET  aa->LINE15
@ 15,  0  SAY "16"
@ 15,  2  GET  aa->LINE16
@ 16,  0  SAY "17"
@ 16,  2  GET  aa->LINE17
@ 17,  0  SAY "18"
@ 17,  2  GET  aa->LINE18
@ 20,35 say "Edit Screen"
@ 24,0 say "Screen Number "+ltrim(str(recno()))